(gnus-inews-yank-articles): Fix bug: After

message-yank-original, make sure (< mark TEXT point).

diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el
index aaf30700e3d371671e813ad11b474fdf2ac59a4f..2e9975f4876ae127f63360ea720fa3ee93cb19b5 100644 (file)
--- a/lisp/gnus/gnus-msg.el
+++ b/lisp/gnus/gnus-msg.el
@@ -771,6 +771,7 @@ active, the entire article will be yanked."
                 (nnheader-narrow-to-headers)
                 (nnheader-parse-naked-head)))))
        (message-yank-original)
+       (exchange-point-and-mark)       ; so that (< mark TEXT point)
        (setq beg (or beg (mark t))))
       (when articles
        (insert "\n")))